home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 4-Fonts & Software / Demo Software / AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpC_536_File.Revert < prev    next >
Text File  |  1989-04-09  |  353b  |  22 lines
  1. /*----------*/
  2. void DoRevert (void);
  3. void DoRevert ()
  4. {
  5.     Str255            fileName;
  6.     Boolean            okay;
  7.  
  8.     okay = true;
  9.     if (cur->dirty) {
  10.         GetWTitle (curWindow, fileName);
  11.         ParamText (fileName, "", "", "");
  12.         okay = Confirm (RevertID);
  13.     }
  14.     if (okay) {
  15.         okay = ReadApplFile (cur->fileNum);
  16.     }
  17.     if (okay) {
  18.         InvalRect (&curWindow->portRect);
  19.     }
  20. } /*DoRevert*/
  21.  
  22.